Namespace Keyboard

    Module mKeyboardVars

        Public HasChanged As Boolean

        Public Enum KeyboardInputType
            KeyPress = 1
            KeyDown = 2
            KeyUp = 3
        End Enum

        Public Const BufferLength As Integer = 128
        Public KeyBuffer(BufferLength - 1) As Char
        Public BufferCount As Integer

    End Module

End Namespace